home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume19 / crisp1.9 / patch01a / patch-cr < prev    next >
Encoding:
Text File  |  1991-04-30  |  40.2 KB  |  1,330 lines
  1. diff -c -r +new-files ../cr.orig/CRISP.Inst ./CRISP.Inst
  2. *** ../cr.orig/CRISP.Inst    Wed Mar 27 23:09:50 1991
  3. --- ./CRISP.Inst    Wed Mar 27 22:36:05 1991
  4. ***************
  5. *** 5,10 ****
  6. --- 5,21 ----
  7.   ##########################################################################
  8.   bin=/usr/local/bin    # Directory for binaries.
  9.   inst=/usr/local/crisp    # Directory for macros and help texts
  10. + echo "Binaries installation directory:  $bin"
  11. + echo "Libraries installation directory: $inst"
  12. + echo ""
  13. + echo "If this is wrong, abort this installation NOW and edit the"
  14. + echo "CRISP.Inst file."
  15. + echo "Pausing 10 seconds for you to press DEL to abort"
  16. + sleep 10
  17. + echo "Continuing installation..."
  18. + sed -e "/^# define INST_DIR/s;.*;# define INST_DIR \"$inst\";" \
  19. +     < src/crisp/crisp.h > /tmp/cinst.$$ && \
  20. +     mv /tmp/cinst.$$ src/crisp/crisp.h
  21.   ##########################################################################
  22.   #   Some drudgery before we get started.
  23.   ##########################################################################
  24. ***************
  25. *** 11,31 ****
  26.   version=1.9
  27.   ##########################################################################
  28.   #   Now unpack any .tar files
  29.   ##########################################################################
  30. ! for i in *.Z 
  31. ! do
  32. !     if [ -f $i ]; then
  33. !         echo Uncompressing $i
  34. !         uncompress $i
  35. !     fi
  36. ! done
  37. ! for i in *-sh*
  38. ! do
  39. !     if [ -f $i ]; then
  40. !         sh $i
  41. !         rm $i
  42. !     fi
  43. ! done
  44.   ##########################################################################
  45.   #   Try and deduce what system we are on.
  46.   #   If you are going to edit this because you are trying to make
  47. --- 22,43 ----
  48.   version=1.9
  49.   ##########################################################################
  50.   #   Now unpack any .tar files
  51. + #   (This never did work right anyway... - kew)
  52.   ##########################################################################
  53. ! #for i in *.Z 
  54. ! #do
  55. ! #    if [ -f $i ]; then
  56. ! #        echo Uncompressing $i
  57. ! #        uncompress $i
  58. ! #    fi
  59. ! #done
  60. ! #for i in *-sh*
  61. ! #do
  62. ! #    if [ -f $i ]; then
  63. ! #        sh $i
  64. ! #        rm $i
  65. ! #    fi
  66. ! #done
  67.   ##########################################################################
  68.   #   Try and deduce what system we are on.
  69.   #   If you are going to edit this because you are trying to make
  70. ***************
  71. *** 96,99 ****
  72. --- 108,113 ----
  73.   make cmac
  74.   echo "Installing Help files..."
  75.   make hmac
  76. + echo "Installing macro sources..."
  77. + make smac
  78.   echo Installation successfully completed.
  79. diff -c -r +new-files ../cr.orig/ChangeLog ./ChangeLog
  80. *** ../cr.orig/ChangeLog    Wed Mar 27 23:09:50 1991
  81. --- ./ChangeLog    Thu Mar 28 08:47:40 1991
  82. ***************
  83. *** 1,3 ****
  84. --- 1,57 ----
  85. + Changes since version 1.9
  86. + =========================
  87. + 
  88. + 1. Fixed bug in bookmark.c which cuased a lockup when trying to change
  89. +    to a bookmark in another window which was currently displayed.
  90. + 2. Fixed *another* bug in bookmark.c which caused the argv vector to
  91. +    get munged.
  92. + 3. Made code in spawn.c and pty.c more portable when using select().
  93. + 4. Revised crisp.m to look for and possibly create a $HOME/.crisprc.{m,cm}
  94. +    file which has all of the autoload's in it.  This makes crisp much
  95. +    more configurable.  Thanks to Berger Wathne for the idea.
  96. + 5. Fixed key assignmet in config.c that had F5/F6 goofed up.
  97. + 6. Fixed code ttyio.c that used scrolling regions.  The regions were not
  98. +    being reset properly cuasing many, many problems.
  99. + 7. You can now set the background color.
  100. + 8. Enhanced the compress intrinsic in math.c to allow for two spaces 
  101. +    after punctuation marks.  You pass the punctuation marks that you want
  102. +    to have two spaces after.  If none are passed, compress works as before.
  103. + 9. Made a m-aix.h file with Warren Jones' help.
  104. + 10. First pty looked for is ptyp0 instead of ptyq0.  This matches my system,
  105. +     and probably no others in the universe.  Let's figure out a good way
  106. +     to do this!
  107. + 11. check_if_died() changed to drain the pipe prior to cleanup.
  108. + 12. Added a global variable wait_status to correct a problem that would cause
  109. +     processes to not return the correct status.  I.e., (shell foo 1) would
  110. +     return a random value.
  111. + 13. Fixed a definition problem in splay/sptree.h that would cause GNU-C to
  112. +     complain.
  113. + 14. calc.m rewritten so it works.
  114. + 15. mail.m rewritten so it works.
  115. + 16. Added sccs.m that works with sccs much the same as Brief works with PVCS.
  116. + 17. Added a strange rcs.m that works with rcs, but trys to emulate the makedist
  117. +     package from lwall.  Needs work.
  118. + 18. Added cbox.m to draw comment boxes for you.
  119. + 19. Added zoom.m to zoom any window to full screen.  Cbox and zoom are both
  120. +     from Stig Jacobsen.
  121. + 20. Column marking/deleting/copying now work.
  122. + 21. compile.m changed to support GNU-C.
  123. + 22. _pipe macro now pipes the marked area into the command, and replaces the
  124. +     marked area on return.
  125. + 23. Support for .4gl and .C/.cc files.
  126. + 24. Lots more X support.
  127. + 25. autoindent now works correctly, not inserting only tabs, but whatever it
  128. +     needs to match the previous tab.
  129. + 26. Tab and Shift-Tab now move a block right/left by one tab.
  130. + 27. Modelines.m added to have commands in the text file that are executed just
  131. +     like vi's modeline feature.
  132. + 28. Wildcard pattern matching bug fixed that would return foo.c~ when only
  133. +     the *.c files were asked for.  This bug lay hidden because of a similar
  134. +     designe decision in select.m.
  135. + 29. spell now defaults to American spellings.
  136. + 30. AIX support.
  137. + 31. Better Sun support.
  138. + 
  139.   Known Bugs in V1.9
  140.   ==================
  141.   
  142. diff -c -r +new-files ../cr.orig/Makefile ./Makefile
  143. *** ../cr.orig/Makefile    Wed Mar 27 23:09:51 1991
  144. --- ./Makefile    Wed Mar 27 22:35:56 1991
  145. ***************
  146. *** 14,25 ****
  147.   #*    Version 1.25
  148.   #*
  149.   #**************************************************************/
  150.   OBJDIR    = obj
  151.   CFLAGS    = $(G)
  152.   TARGET    = cr
  153.   L    = lib
  154.   LIB1    = $(L)/libsptree.a $(L)/llist.a $(L)/foxlib.a 
  155. ! LIBS    = $(LIB1) $(MALLOC) $(SHLIB) 
  156.   SRCDIR    = sleepy:/usr/fox/crisp
  157.   INSTALL_DIR    = /usr/local/crisp
  158.   LDFLAGS    = 
  159. --- 14,28 ----
  160.   #*    Version 1.25
  161.   #*
  162.   #**************************************************************/
  163. + #
  164. + # You set G, OTHERLIBS and other variables in your machine's s-machine file.
  165. + #
  166.   OBJDIR    = obj
  167.   CFLAGS    = $(G)
  168.   TARGET    = cr
  169.   L    = lib
  170.   LIB1    = $(L)/libsptree.a $(L)/llist.a $(L)/foxlib.a 
  171. ! LIBS    = $(LIB1) $(MALLOC) $(SHLIB) $(OTHERLIBS)
  172.   SRCDIR    = sleepy:/usr/fox/crisp
  173.   INSTALL_DIR    = /usr/local/crisp
  174.   LDFLAGS    = 
  175. ***************
  176. *** 62,78 ****
  177.   __Foxlib:    $(L)/foxlib.a
  178.       touch __Foxlib
  179.   $(L)/foxlib.a:
  180. !     cd foxlib ; $(MAKE)
  181.   
  182.   __Llist:    $(L)/llist.a
  183.       touch __Llist
  184.   $(L)/llist.a:
  185. !     cd llist ; $(MAKE) 
  186.   
  187.   __Splay:    $(L)/libsptree.a
  188.       touch __Splay
  189.   $(L)/libsptree.a:
  190. !     cd splay ; $(MAKE) 
  191.   
  192.   clean:
  193.       -rm -f crisp.log
  194. --- 65,81 ----
  195.   __Foxlib:    $(L)/foxlib.a
  196.       touch __Foxlib
  197.   $(L)/foxlib.a:
  198. !     cd foxlib ; $(MAKE) "CFLAGS=$(CFLAGS)"
  199.   
  200.   __Llist:    $(L)/llist.a
  201.       touch __Llist
  202.   $(L)/llist.a:
  203. !     cd llist ; $(MAKE)  "CFLAGS=$(CFLAGS)"
  204.   
  205.   __Splay:    $(L)/libsptree.a
  206.       touch __Splay
  207.   $(L)/libsptree.a:
  208. !     cd splay ; $(MAKE)  "CFLAGS=$(CFLAGS)"
  209.   
  210.   clean:
  211.       -rm -f crisp.log
  212. ***************
  213. *** 79,88 ****
  214.       -rm -f obj/* lib/* a.out core
  215.       -rm -f *.o 
  216.       -rm -f */*.o
  217.       
  218.   $(TARGET):    $(OBJ) $(MARKER)
  219.       $(CC) $(LDFLAGS) $(CFLAGS) $(SEG) -o $(TARGET) $(OBJ) $(LIBS)
  220. -     sync
  221.       @echo "Finished making 'cr' executable."
  222.   
  223.   crisp.dist:
  224. --- 82,96 ----
  225.       -rm -f obj/* lib/* a.out core
  226.       -rm -f *.o 
  227.       -rm -f */*.o
  228. + 
  229. + realclean:    clean
  230. +     -rm -f $(MARKER)
  231. +     -rm -f cr cm
  232. +     -rm -f tags
  233. +     -rm -f s-machine m-machine.h
  234.       
  235.   $(TARGET):    $(OBJ) $(MARKER)
  236.       $(CC) $(LDFLAGS) $(CFLAGS) $(SEG) -o $(TARGET) $(OBJ) $(LIBS)
  237.       @echo "Finished making 'cr' executable."
  238.   
  239.   crisp.dist:
  240. ***************
  241. *** 261,266 ****
  242. --- 269,278 ----
  243.       -rm -rf /usr/local/crisp/help
  244.       -mkdir /usr/local/crisp/help
  245.       cd help/crisp ; tar cf - . | (cd /usr/local/crisp/help ; tar xvf - )
  246. + 
  247. + smac:
  248. +     -mkdir /usr/local/crisp/src
  249. +     cd src; tar cf - . | (cd /usr/local/crisp/src; tar xvf - )
  250.   
  251.   cm:    cm.c debug.c env.c keywd.c language.c ref_string.c system.c word.c
  252.       $(CC) $(CFLAGS) -DNOFUNCTIONS \
  253. diff -c -r +new-files ../cr.orig/README ./README
  254. *** ../cr.orig/README
  255. --- ./README    Wed Mar 27 17:03:33 1991
  256. ***************
  257. *** 0 ****
  258. --- 1,84 ----
  259. + This file is included in the Crisp v1.9 patch set as an explanation
  260. + and a greeting.
  261. + 
  262. + My name is Keith Walker.  I've been using Crisp/GRIEF since version
  263. + 1.5.  I like the editor and want to see it improve.  I've been writing
  264. + and collecting fixes to the C source and macros as well as new macro
  265. + files for quite a while now.  I want to share this with you.
  266. + 
  267. + Apply this patch to a pristine version of Crisp 1.9 and many, many
  268. + bugs will go away.  Some subtle, some no so subtle.  Macro files will
  269. + be added to your system as well as some changes to the way that crisp
  270. + operates.
  271. + 
  272. + Some of the changes that will make a chagne in the way you do business
  273. + with crisp:
  274. + 
  275. + 1. The crisp.m macro has changed considerably.
  276. +     All of the code in crisp.m that did the autoload stuff has
  277. +     been moved to a file in your home directory called
  278. +     "~/.crisprc.{m,cm}".  This makes it much easier to customize
  279. +     your particular version of crisp.  This is where you should
  280. +     do things like assign_to_key changes.  The first time that
  281. +     the new version of crisp fires up, you'll get a couple of
  282. +     messages telling you what it's doing.  After that you can
  283. +     find the crisprc files in your home directory.  They are
  284. +     copies of the "crisprc.m" file in the INST/src/crisp
  285. +     directory.  Modify to suit.  If crisp discovers that the
  286. +     ~/.crisprc.m file is newer than ~/crisprc.cm, then it will
  287. +     do the recompile automatically.
  288. + 
  289. + 2. The goto_bookmark intrinsic works now.
  290. +     Not much to say about this.  Goto_bookmark will now look for
  291. +     bookmarks in other windows, including windows that are
  292. +     currently displayed.
  293. + 
  294. + 3. Mail works
  295. +     This was somewhat brain damaged in the original version.  I
  296. +     understand that some Unixes keep the mail files writable
  297. +     only to the "mail" group.  Mail still won't work for you,
  298. +     unless you put some setgid() code in the system, which you
  299. +     probably don't want to do.
  300. + 
  301. + 4. Installation is a little smarter, but...
  302. +     I wanted to keep this patch set at something less than 1Meg.
  303. +     This meant refraining from gratuitous changes like C source
  304. +     formatting, extra comments, and unfortunately, too many
  305. +     changes to the installation procedures.  One major change
  306. +     that was actually put back in from previous versions of
  307. +     crisp was to copy the macro source directory to the install
  308. +     directory (usually /usr/local/crisp).  This keeps the
  309. +     sources in a convenient place for the sysadmin.
  310. + 
  311. + 
  312. + Keith Walker
  313. + North 8710 Kelly Court
  314. + Spokane, Washington  99208
  315. + +1 509 466 9284
  316. + kew@cims.com
  317. + ...uunet!{isc-br!tau-ceti,proto}!cims2!kew
  318. + 
  319. + 
  320. + p.s.
  321. + 
  322. + As I write this, I have heard that Paul Fox is once again on the scene
  323. + with a new version of crisp.  But then we heard that the version is
  324. + 1.1, then 2.1, then 1.1, then the e-mail address was bad, etc.  In
  325. + other words, we haven't got any verification of Paul's existance really.
  326. + 
  327. + I don't know what this will do to the current version of crisp.  The
  328. + new version (whatever the number) is "shareware" and costs about
  329. + $150.00 US, and you must pay before delivery.  This is a little
  330. + different than the "shareware" concept we have stateside.  To me it
  331. + basically means that Paul has gone commercial.
  332. + 
  333. + Just so you know my stance, I intend to keep improving the 1.9 version
  334. + whatever Paul has going, since I for one cannot justify $150 for an
  335. + editor when I already have one that works great.  I will continue to
  336. + share my work with others that want it.
  337. + 
  338. + This whole bit is subject to change, since I haven't heard directly
  339. + from Paul Fox, so take it all with a grain of salt.
  340. + 
  341. + --kew
  342. + 
  343. diff -c -r +new-files ../cr.orig/X.README ./X.README
  344. *** ../cr.orig/X.README
  345. --- ./X.README    Wed Mar 27 16:28:56 1991
  346. ***************
  347. *** 0 ****
  348. --- 1,80 ----
  349. + [This letter came along with some changes from rohit@dmdev.uucp
  350. + (aka Rohit Mehrotra).  Since your maintainer knows nothing of X,
  351. + you'll have to figure out what goes on yourself.  Sorry.  Maybe
  352. + someday, my machine will grow up and I'll get X. 
  353. + 
  354. + Also, your maintainer has a Missed-Em Five machine so the file
  355. + is *not* named "xcrisp.xdefaults", it's named "xcrisp.xdefaul".
  356. + (yeah, go ahead, laugh! Ha-Ha.)
  357. + 
  358. + -- kew ]
  359. + 
  360. + Hi,
  361. + 
  362. + Crisp can map any escape sequence emitted by a key stroke to any
  363. + of its macros. This mapping is defined in a terminal driver. There
  364. + are two terminal drivers for crisp on X.
  365. + 
  366. + Both these drivers are essentially similar to an extent that both of
  367. + them:
  368. +   1) try to tell crisp as to what escape sequences are emitted by
  369. +      which keystrokes,
  370. +   2) try to map these keystrokes to different crisp macros.    
  371. + 
  372. + If you find that any of them is not correct then go ahead and
  373. + modify them accordingly.
  374. + 
  375. + If for some reason your keyboard is not emitting the escape sequences
  376. + i.e. Alt-A or Meta-A emit the character "a" then crisp can really not 
  377. + do much about it. If you know of a way to get your keyboard to emit
  378. + different escape sequences for different Shifted/Alted keystrokes
  379. + then just change the escape sequences being mapped and you should
  380. + be all set to go. I have heard that you can map any keystroke to any
  381. + escape sequences in X. Well there is your chance to prove it (:-.
  382. + 
  383. + If you can not do it and insist on using crisp under X then try to 
  384. + use the terminal driver sun4.m which maps just about most of the 
  385. + crisp macros to the CTRL-keys. However uptil now I have not been 
  386. + able to make the KeyPad + / - emit any escape sequences in
  387. + Openwindows on Sun.
  388. + 
  389. + Files for the two drivers are:
  390. + 
  391. + 1)     src/crisp/tty/xterm.m
  392. +     and src/crisp/kbd/xterm.m
  393. + 
  394. + 2)     src/crisp/tty/xcrisp.m
  395. +     and src/crisp/tty/xcrisp.m
  396. +     and xcrisp.xdefaults
  397. + 
  398. + The driver xterm.m came along with version 1.9 and has been modified
  399. + by me a little. This driver assumes that your keyboard is emitting
  400. + the escape sequences that are defined in it. There is a capability
  401. + to choose between sun mappings or VT100 mappings. I HAVE NOT REALLY
  402. + TESTED THEM FULLY AS I PERSONALLY USE THE xcrisp macro/approach. 
  403. + 
  404. + UNCOMMENT THE LINES THAT YOU WOULD CHOOSE. This driver requires some
  405. + some modifications in a sense that you might have to change the escape
  406. + sequences associated with the various keys to the one that are emitted
  407. + by your keyboard.
  408. + 
  409. + In driver xcrisp different set of key mappings are defined, we
  410. + are trying to standardize things. In order to make the keyboard emit
  411. + the escape sequences mapped in xcrisp.m start crisp/xterm window as
  412. + follows:
  413. +        xterm -name xcrisp -e "cr"
  414. +                or
  415. +        xterm -name xcrisp        
  416. + 
  417. + Add the lines in the file called tty/xcr.xdefault to your .Xdefaults,
  418. + or wherever you xterm will find them. These lines have to correspond
  419. + to the kbd and tty files.
  420. + 
  421. + I WANT TO STANDARDIZE THESE THINGS SO THAT THEY ARE NOT TOO SUN-SPECIFIC.
  422. + 
  423. + The driver xcrisp works fine on my system: SunOS4.1.1 / SunSparc
  424. + 
  425. + LET ME KNOW WHAT YOU DO. IF YOU ENHANCE THIS IN ANY WAY, HAVE PROBLEMS, ETC.
  426. + 
  427. + [ Well, that's it.  If you do help out, please send your changes
  428. +   to me at kew@cims.com --kew]
  429. diff -c -r +new-files ../cr.orig/bookmark.c ./bookmark.c
  430. *** ../cr.orig/bookmark.c    Wed Mar 27 23:10:07 1991
  431. --- ./bookmark.c    Wed Mar 27 16:16:40 1991
  432. ***************
  433. *** 55,65 ****
  434. --- 55,75 ----
  435.       struct bookmark *bk;
  436.       int    move = TRUE;
  437.       long    book_no;
  438. +     int    i;                        /* kew */
  439. +     LISTV    tmp_args[5];                    /* kew */
  440.   
  441. +     /* save all used args */                /* kew */
  442. +     for (i = 1; i <= 4; i++)                /* kew */
  443. +         tmp_args[i] = argv[i];                /* kew */
  444. + 
  445.       accumulator = 0;
  446.       if (get_iarg1("Go to bookmark [1-10]: ", &book_no))
  447.           return 0;
  448.   
  449. +     /* restore the args */                    /* kew */
  450. +     for (i = 1; i <= 4; i++)                    /* kew */
  451. +         argv[i] = tmp_args[i];                    /* kew */
  452. + 
  453.       if (book_no == 0)
  454.           book_no = 10;
  455.       if (book_no < 1 || book_no > MAX_BOOKMARKS) {
  456. ***************
  457. *** 85,91 ****
  458.   
  459.       if (move) {
  460.           WINDOW    *wp;
  461. !         for (wp = wheadp; wp; wp->w_wndp)
  462.               if (wp->w_bufp->b_bufnum == bk->b_buffer)
  463.                   break;
  464.           if (wp == NULL) {
  465. --- 95,101 ----
  466.   
  467.       if (move) {
  468.           WINDOW    *wp;
  469. !         for (wp = wheadp; wp; wp = wp->w_wndp)        /* kew */
  470.               if (wp->w_bufp->b_bufnum == bk->b_buffer)
  471.                   break;
  472.           if (wp == NULL) {
  473. ***************
  474. *** 103,108 ****
  475. --- 113,119 ----
  476.               }
  477.           argv[1].l_int = bk->b_line;
  478.           argv[2].l_int = bk->b_col;
  479. +         set_hooked();                    /* kew */
  480.           move_abs();
  481.           }
  482.       accumulator = 1;
  483. diff -c -r +new-files ../cr.orig/config.c ./config.c
  484. *** ../cr.orig/config.c    Wed Mar 27 23:10:12 1991
  485. --- ./config.c    Wed Mar 27 16:16:55 1991
  486. ***************
  487. *** 65,72 ****
  488.           F2,        "move_edge",
  489.           F3,        "create_edge",
  490.           F4,        "delete_edge",
  491. !         F5,        "search_fwd",
  492. !         F6,        "translate",
  493.           F7,        "remember",
  494.           F8,        "playback",
  495.           F9,        "load_macro",
  496. --- 65,72 ----
  497.           F2,        "move_edge",
  498.           F3,        "create_edge",
  499.           F4,        "delete_edge",
  500. !         F5,        "search-fwd",            /* kew */
  501. !         F6,        "translate-fwd",        /* kew */
  502.           F7,        "remember",
  503.           F8,        "playback",
  504.           F9,        "load_macro",
  505. diff -c -r +new-files ../cr.orig/display.c ./display.c
  506. *** ../cr.orig/display.c    Wed Mar 27 23:10:14 1991
  507. --- ./display.c    Wed Mar 27 21:53:57 1991
  508. ***************
  509. *** 151,160 ****
  510.   void
  511.   vttidy() 
  512.   {
  513.       ttmove(nrow-1, (u_int16) 0);
  514.       ttputc(FG(col_table.c_normal));
  515.       tteeol();
  516. -     tttidy();
  517.       ttflush();
  518.       ttclose();
  519.   }
  520. --- 151,160 ----
  521.   void
  522.   vttidy() 
  523.   {
  524. +     tttidy();
  525.       ttmove(nrow-1, (u_int16) 0);
  526.       ttputc(FG(col_table.c_normal));
  527.       tteeol();
  528.       ttflush();
  529.       ttclose();
  530.   }
  531. ***************
  532. *** 816,822 ****
  533.   void
  534.   vtputl(lp)
  535.   register LINE    *lp;
  536. ! {    int    attr = FG(col_table.c_normal);
  537.       u_int16    ch;
  538.       register u_int16    col = ncol;
  539.       register u_char *cp = lp->l_text;
  540. --- 816,822 ----
  541.   void
  542.   vtputl(lp)
  543.   register LINE    *lp;
  544. ! {    int    attr = FG(col_table.c_normal) | BG(col_table.c_background);    /* kew */
  545.       u_int16    ch;
  546.       register u_int16    col = ncol;
  547.       register u_char *cp = lp->l_text;
  548. diff -c -r +new-files ../cr.orig/foxlib/chk_alloc.c ./foxlib/chk_alloc.c
  549. *** ../cr.orig/foxlib/chk_alloc.c    Wed Mar 27 23:08:33 1991
  550. --- ./foxlib/chk_alloc.c    Wed Mar 27 17:04:37 1991
  551. ***************
  552. *** 222,228 ****
  553.   # define    MMU_PAGESIZE    (3 * 8192)/* Must be at least as big as   */
  554.                       /* real MMU page size.        */
  555.   # define    NEXT(vp)    ((VM *) ((char *) vp + size))
  556. ! # define    NULL    0
  557.   
  558.   typedef struct VM {
  559.           struct VM *next;
  560. --- 222,230 ----
  561.   # define    MMU_PAGESIZE    (3 * 8192)/* Must be at least as big as   */
  562.                       /* real MMU page size.        */
  563.   # define    NEXT(vp)    ((VM *) ((char *) vp + size))
  564. ! # if !defined(NULL)
  565. ! #   define    NULL    0
  566. ! # endif
  567.   
  568.   typedef struct VM {
  569.           struct VM *next;
  570. diff -c -r +new-files ../cr.orig/gdir.h ./gdir.h
  571. *** ../cr.orig/gdir.h    Wed Mar 27 23:09:56 1991
  572. --- ./gdir.h    Wed Mar 27 19:21:51 1991
  573. ***************
  574. *** 9,15 ****
  575.   #        undef    DIRSIZ
  576.   #    endif
  577.   #    define    DIRSIZ    MAXNAMLEN
  578. ! #    define    dirent direct
  579.   # else
  580.   #     include    <dirent.h>
  581.   # endif
  582. --- 9,17 ----
  583.   #        undef    DIRSIZ
  584.   #    endif
  585.   #    define    DIRSIZ    MAXNAMLEN
  586. ! #   if !defined(_AIX)                                            /* kew */
  587. ! #      define    dirent direct
  588. ! #   endif
  589.   # else
  590.   #     include    <dirent.h>
  591.   # endif
  592. diff -c -r +new-files ../cr.orig/keywd.c ./keywd.c
  593. *** ../cr.orig/keywd.c    Wed Mar 27 23:10:19 1991
  594. --- ./keywd.c    Wed Mar 27 16:17:23 1991
  595. ***************
  596. *** 146,152 ****
  597.   MACRO3("change_window",        change_window,    "*i"),/* Window */
  598.   MACRO3("color",            color,        "*i*i*i*i*i*i"),/* Screen */
  599.   MACRO3("command_list",        command_list,    ""),/* List */
  600. ! MACRO3("compress",        compress,    "s"),/* String */
  601.   MACRO3("connect",        do_connect,    "*i*s"),/* Proc */
  602.   MACRO3("continue",        do_continue,    ""),/* Macro */
  603.   MACRO3("copy",            copy,        "*i"),/* Scrap */
  604. --- 146,152 ----
  605.   MACRO3("change_window",        change_window,    "*i"),/* Window */
  606.   MACRO3("color",            color,        "*i*i*i*i*i*i"),/* Screen */
  607.   MACRO3("command_list",        command_list,    ""),/* List */
  608. ! MACRO3("compress",        compress,    "s*s"),/* String */    /* kew */
  609.   MACRO3("connect",        do_connect,    "*i*s"),/* Proc */
  610.   MACRO3("continue",        do_continue,    ""),/* Macro */
  611.   MACRO3("copy",            copy,        "*i"),/* Scrap */
  612. diff -c -r +new-files ../cr.orig/m-aix.h ./m-aix.h
  613. *** ../cr.orig/m-aix.h
  614. --- ./m-aix.h    Thu Mar 28 08:49:23 1991
  615. ***************
  616. *** 0 ****
  617. --- 1,88 ----
  618. + /************************************************************************
  619. +  *                                                                      *
  620. +  *        CRISP - Custom Reduced Instruction Set Programmers Editor     *
  621. +  *                                                                      *
  622. +  *        (C) Paul Fox, 1989                                            *
  623. +  *        43, Jerome Close              Tel: +44 6284 4222              *
  624. +  *            Marlow                                                    *
  625. +  *             Bucks.                                                   *
  626. +  *                England SL7 1TX                                       *
  627. +  *                                                                      *
  628. +  *                                                                      *
  629. +  *    Please See COPYRIGHT notice.                                      *
  630. +  *                                                                      *
  631. +  *    This file is supposed to be for AIX, but your maintainer          *
  632. +  *    knows nothing of AIX, so you need to edit this.                   *
  633. +  *                                                                      *
  634. +  ************************************************************************/
  635. + 
  636. +     /*------------------------------------------------------------*/
  637. +     /* "I changed this to help with some changes by Warren Jones" */
  638. +     /* "Please let me know if they do the trick.  Mail to:"          */
  639. +     /* "kew@cims.com"                                              */
  640. +     /*------------------------------------------------------------*/
  641. + 
  642. + /************************************************************************
  643. +  *    One  of  the  following should be set to indicate machine type.    *
  644. +  *    Some  of  the  definitions  may  apply to more than one machine    *
  645. +  *    type,  eg  SUN may be more indicative of BSD, but I dont have a    *
  646. +  *    generic BSD to try this out on.                    *
  647. +  ************************************************************************/
  648. + # define    SUN            /* this is about the closest, I think -- kew */
  649. + /*# define    SYSV*/
  650. + /*#define    VMS*/
  651. + /************************************************************************
  652. +  *    Some  combination  of  the  following  may  need  to be set for    *
  653. +  *    operating  system  dependent  features which dont fit under the    *
  654. +  *    general category of operating system features.            *
  655. +  ************************************************************************/
  656. + # define    BSD
  657. + /*# define    XENIX*/
  658. + 
  659. + /************************************************************************
  660. +  *    DIRSIZ_DEFINED  should  be  define'd  if  the  POSIX  directory    *
  661. +  *    access include files are wrong. (Are they wrong or right ?)    *
  662. +  ************************************************************************/
  663. + # define    DIRSIZ_DEFINED
  664. + /*#undef    DIRSIZ_DEFINED*/
  665. + 
  666. + /************************************************************************
  667. +  *    The  following  # define is used to control the use of the enum    *
  668. +  *    OPCODE   typedef  in  the  list.h. It doesn't matter if you set    *
  669. +  *    this  to  'int'  as  below,  but  if it is undefined then it is    *
  670. +  *    easier  to  debug  the  CRISP lisp-code. Older Unix C compilers    *
  671. +  *    do  not  treat  enum's  and  int's  as  the  same type and will    *
  672. +  *    complain during compilation.                    *
  673. +  ************************************************************************/
  674. + # define        OPCODE        int
  675. + /*#undef OPCODE */
  676. + 
  677. + 
  678. + /************************************************************************
  679. +  *    If  you  have  support  for  pty's  in your kernel, then define    *
  680. +  *    HAVE_PTY.  If  not  #undef it, and normal unnamed pipes will be    *
  681. +  *    used instead.                            *
  682. +  ************************************************************************/
  683. + # undef        HAVE_PTY
  684. + # define       HAVE_PTY
  685. + 
  686. + /************************************************************************
  687. +  *    SELECT  should  be  defined  if  we  can  do  a select() on the    *
  688. +  *    keyboard  and  on the process pty's/pipes. This will tend to be    *
  689. +  *    true   on   BSD  systems,  and  Sys  V.4.  Alas,  poll()  isn't    *
  690. +  *    generally  applicable  on V.3 because the standard pipe and tty    *
  691. +  *    drivers are streams modules.                    *
  692. +  ************************************************************************/
  693. + # undef        SELECT
  694. + # define    SELECT
  695. + 
  696. + /************************************************************************
  697. +  *    CRISP  defines  a typedef called u_char. Some Unix systems also    *
  698. +  *    define   this   type   in   one  of  the  system  header  files    *
  699. +  *    (/usr/include/sys/types.h)  which  causes  a compilation error.    *
  700. +  *    If  you  have  this  typedef  in  your system header file, then    *
  701. +  *    #define U_CHAR. Otherwise undefine it.                *
  702. +  ************************************************************************/
  703. + /*#undef        U_CHAR*/
  704. + # define        U_CHAR
  705. + 
  706. diff -c -r +new-files ../cr.orig/m-sun3os3.h ./m-sun3os3.h
  707. *** ../cr.orig/m-sun3os3.h    Wed Mar 27 23:10:54 1991
  708. --- ./m-sun3os3.h    Thu Mar 28 08:49:23 1991
  709. ***************
  710. *** 84,89 ****
  711.    ************************************************************************/
  712.   /*#undef        U_CHAR*/
  713.   # define        U_CHAR
  714. - 
  715. - 
  716. - 
  717. --- 84,86 ----
  718. diff -c -r +new-files ../cr.orig/m-sun3os4.h ./m-sun3os4.h
  719. *** ../cr.orig/m-sun3os4.h    Wed Mar 27 23:10:54 1991
  720. --- ./m-sun3os4.h    Thu Mar 28 08:49:23 1991
  721. ***************
  722. *** 84,88 ****
  723.   /*#undef        U_CHAR*/
  724.   # define        U_CHAR
  725.   
  726. - 
  727. - 
  728. --- 84,86 ----
  729. diff -c -r +new-files ../cr.orig/m-sysv.h ./m-sysv.h
  730. *** ../cr.orig/m-sysv.h    Wed Mar 27 23:10:55 1991
  731. --- ./m-sysv.h    Thu Mar 28 08:49:23 1991
  732. ***************
  733. *** 83,87 ****
  734.   #undef        U_CHAR
  735.   /*# define        U_CHAR*/
  736.   
  737. - 
  738. - 
  739. --- 83,85 ----
  740. diff -c -r +new-files ../cr.orig/m-sysv3.2.h ./m-sysv3.2.h
  741. *** ../cr.orig/m-sysv3.2.h    Wed Mar 27 23:10:55 1991
  742. --- ./m-sysv3.2.h    Thu Mar 28 08:49:23 1991
  743. ***************
  744. *** 89,92 ****
  745.   # define    EGA43
  746.   /* #undef    EGA43*/
  747.   
  748. - 
  749. --- 89,91 ----
  750. diff -c -r +new-files ../cr.orig/m-vms.h ./m-vms.h
  751. *** ../cr.orig/m-vms.h    Wed Mar 27 23:10:57 1991
  752. --- ./m-vms.h    Thu Mar 28 08:49:23 1991
  753. ***************
  754. *** 86,90 ****
  755.    ************************************************************************/
  756.   /*# define        U_CHAR*/
  757.   
  758. - 
  759. - 
  760. --- 86,88 ----
  761. diff -c -r +new-files ../cr.orig/m-xenix.h ./m-xenix.h
  762. *** ../cr.orig/m-xenix.h    Wed Mar 27 23:10:57 1991
  763. --- ./m-xenix.h    Thu Mar 28 08:49:24 1991
  764. ***************
  765. *** 33,39 ****
  766.    *    general category of operating system features.            *
  767.    ************************************************************************/
  768.   /*# define    BSD*/
  769. ! /*# define    XENIX*/
  770.   
  771.   /************************************************************************
  772.    *    DIRSIZ_DEFINED  should  be  define'd  if  the  POSIX  directory    *
  773. --- 33,39 ----
  774.    *    general category of operating system features.            *
  775.    ************************************************************************/
  776.   /*# define    BSD*/
  777. ! # define    XENIX
  778.   
  779.   /************************************************************************
  780.    *    DIRSIZ_DEFINED  should  be  define'd  if  the  POSIX  directory    *
  781. ***************
  782. *** 60,66 ****
  783.    *    used instead.                            *
  784.    ************************************************************************/
  785.   # undef        HAVE_PTY
  786. ! /*# define        HAVE_PTY*/
  787.   
  788.   /************************************************************************
  789.    *    SELECT  should  be  defined  if  we  can  do  a select() on the    *
  790. --- 60,66 ----
  791.    *    used instead.                            *
  792.    ************************************************************************/
  793.   # undef        HAVE_PTY
  794. ! # define       HAVE_PTY
  795.   
  796.   /************************************************************************
  797.    *    SELECT  should  be  defined  if  we  can  do  a select() on the    *
  798. ***************
  799. *** 70,76 ****
  800.    *    drivers are streams modules.                    *
  801.    ************************************************************************/
  802.   # undef        SELECT
  803. ! /*# define    SELECT*/
  804.   
  805.   /************************************************************************
  806.    *    CRISP  defines  a typedef called u_char. Some Unix systems also    *
  807. --- 70,76 ----
  808.    *    drivers are streams modules.                    *
  809.    ************************************************************************/
  810.   # undef        SELECT
  811. ! # define    SELECT
  812.   
  813.   /************************************************************************
  814.    *    CRISP  defines  a typedef called u_char. Some Unix systems also    *
  815. ***************
  816. *** 81,86 ****
  817.    ************************************************************************/
  818.   #undef        U_CHAR
  819.   /*# define        U_CHAR*/
  820. - 
  821. - 
  822. - 
  823. --- 81,83 ----
  824. diff -c -r +new-files ../cr.orig/math.c ./math.c
  825. *** ../cr.orig/math.c    Wed Mar 27 23:10:31 1991
  826. --- ./math.c    Wed Mar 27 16:17:58 1991
  827. ***************
  828. *** 320,339 ****
  829.       return 0;
  830.   }
  831.   compress()
  832. ! {    register char    *cp;
  833. !     register char    *cp1;
  834. !     strl_acc_assign(get_str(1));
  835. !     cp = saccumulator;
  836.       while (*cp) {
  837. !         for (cp1 = cp; isspace(*cp1) || *cp1 == '\n'; )
  838. !             cp1++;
  839. !         if (*cp1 != *cp) {
  840. !             strcpy(cp+1, cp1);
  841. !             *cp = ' ';
  842.               }
  843. -         cp++;
  844.           }
  845.       return 0;
  846.   }
  847.   trim()
  848.   {    register char *cp;
  849. --- 320,366 ----
  850.       return 0;
  851.   }
  852.   compress()
  853. ! {
  854. ! /* start kew */
  855. !     /*
  856. !      * New compress can be called like (compress line "!.?:") and will
  857. !      * add two spaces after each of the characters in the follow_set.
  858. !      * If the follow_set is NULL or not passed, then compress will act
  859. !      * just like the old one; this preserves backward compatibility.
  860. !      */
  861. !     char *cp;
  862. !     char *sacc;
  863. !     char *s1;
  864. !     char *follow_set = (argv[2].l_flags == F_STR) ? argv[2].l_str : NULL;
  865. !     int got_follow;
  866. ! 
  867. !     cp = get_str(1);
  868. !     sacc = (char *) chk_alloc(strlen(cp) * 2 + 1);    /* plenty of room for expansion */
  869. !     s1 = sacc;
  870.       while (*cp) {
  871. !         if (!isspace(*cp) && *cp != '\n') {
  872. !             *s1++ = *cp;    /* copy over the character */
  873. !             if (follow_set && strchr(follow_set, *cp) && isspace(*(cp + 1)))
  874. !                 got_follow = 1;
  875. !             else
  876. !                 got_follow = 0;
  877. !             cp++;
  878. !         } else {
  879. !             /* character must be whitespace */
  880. !             while (isspace(*cp) || *cp == '\n')
  881. !                 cp++;
  882. !             *s1++ = ' ';
  883. !             if (got_follow) {
  884. !                 *s1++ = ' ';
  885. !                 got_follow = 0;
  886.               }
  887.           }
  888. +     }
  889. +     *s1 = '\0';
  890. +     strl_acc_assign(sacc);
  891. +     chk_free(sacc);
  892.       return 0;
  893. + /* end kew */
  894.   }
  895.   trim()
  896.   {    register char *cp;
  897. diff -c -r +new-files ../cr.orig/pty.c ./pty.c
  898. *** ../cr.orig/pty.c    Wed Mar 27 23:10:33 1991
  899. --- ./pty.c    Wed Mar 27 16:24:48 1991
  900. ***************
  901. *** 19,35 ****
  902.   #     include    <termio.h>
  903.   # endif
  904.   # include    "clk.h"
  905.   SCCSID("@(#) pty.c 1.15, (C) P. Fox");
  906. - extern    BYTE    *blanks;
  907.   
  908.   # define    BOLD    0x01
  909.   # define    REVERSE    0x02
  910.   
  911.   # define    POLL_TIME    1    /* Seconds between polls.    */
  912. - # define    BIT(x)    (1 << (x))
  913.   
  914.   static int entry = 0;
  915. ! extern long    sel_bits;
  916.   static char *flush_pty_buf();
  917.   static void p_update();
  918.   void    p_clear_screen();
  919. --- 19,46 ----
  920.   #     include    <termio.h>
  921.   # endif
  922.   # include    "clk.h"
  923. + /* start kew */
  924. + #ifdef SELECT
  925. + #  if !(defined(BSD) || defined(SUN))    /* BSD/Sun puts timeval struct in times.h -- 27Mar91 kew */
  926. + #    include    <sys/select.h>
  927. + #  endif
  928. + #endif
  929. + #include    <sys/types.h>
  930. + #include     <sys/times.h>
  931. + #include    <time.h>
  932. + /* end kew */
  933. + 
  934.   SCCSID("@(#) pty.c 1.15, (C) P. Fox");
  935.   
  936.   # define    BOLD    0x01
  937.   # define    REVERSE    0x02
  938.   
  939.   # define    POLL_TIME    1    /* Seconds between polls.    */
  940.   
  941. + extern    BYTE    *blanks;
  942. + extern    int    wait_status;                    /* kew */
  943.   static int entry = 0;
  944. ! extern fd_set    sel_bits;                    /* kew */
  945.   static char *flush_pty_buf();
  946.   static void p_update();
  947.   void    p_clear_screen();
  948. ***************
  949. *** 198,203 ****
  950. --- 209,215 ----
  951.       if (str_arg && (prog = regcomp(str_arg)) == NULL)
  952.           goto end_of_function;
  953.   
  954. +     wait_status = 0;                    /* kew */
  955.       while (clock_check()) {
  956.           int    n;
  957.           LIST    *lp1;
  958. ***************
  959. *** 215,229 ****
  960.           /*   portably. Hopefully the window is too
  961.           /*   small to cause a problem.
  962.           /*----------------------------------------*/
  963. !         if (child_sig)
  964. !             i = -1;
  965. !         else {
  966. !             fcntl(fd, F_SETFL, flags & ~O_NDELAY);
  967. !             if (child_sig)
  968. !                 i = -1;
  969. !             i = read(fd, buf, 1);
  970. !             fcntl(fd, F_SETFL, flags);
  971. !             }
  972.           if (i != 1) {
  973.               update();
  974.               if (check_if_died(curbp)) {
  975. --- 227,239 ----
  976.           /*   portably. Hopefully the window is too
  977.           /*   small to cause a problem.
  978.           /*----------------------------------------*/
  979. !         if (check_if_died(curbp)) {            /* kew */
  980. !             break;                    /* kew */
  981. !         } else {                    /* kew */
  982. !             if (child_sig && check_if_died(curbp))  /* kew */
  983. !                 break;                /* kew */
  984. !             i = read(fd, buf, 1);            /* kew */
  985. !         }                        /* kew */
  986.           if (i != 1) {
  987.               update();
  988.               if (check_if_died(curbp)) {
  989. ***************
  990. *** 616,622 ****
  991.       strcpy(tty_name, TTY_NAME);
  992.       for (xx = 0; pty_name[xx] != 'X'; )
  993.           xx++;
  994. !     for (c1 = 'q'; c1 != 'z'; c1++) {
  995.           for (c2 = 0; c2 < 0x10; c2++) {
  996.               tty_name[xx] = pty_name[xx] = c1;
  997.               tty_name[xx+1] = pty_name[xx+1] = 
  998. --- 626,632 ----
  999.       strcpy(tty_name, TTY_NAME);
  1000.       for (xx = 0; pty_name[xx] != 'X'; )
  1001.           xx++;
  1002. !     for (c1 = 'p'; c1 != 'z'; c1++) {            /* kew */
  1003.           for (c2 = 0; c2 < 0x10; c2++) {
  1004.               tty_name[xx] = pty_name[xx] = c1;
  1005.               tty_name[xx+1] = pty_name[xx+1] = 
  1006. ***************
  1007. *** 648,662 ****
  1008. --- 658,685 ----
  1009.           dup2(*recv, 2);
  1010.           close(*recv);
  1011.           close(*send);
  1012. + #ifdef SIGTTIN                            /* kew */
  1013.           signal(SIGTTIN, SIG_DFL);
  1014.           signal(SIGTTOU, SIG_DFL);
  1015.           setpgrp(0, mypid);
  1016.           ioctl(0, TIOCSPGRP, &mypid);
  1017. + #else                            /* start kew */
  1018. +         {
  1019. +         struct termio ot, nt;
  1020. +         ioctl(0, TCGETA, &ot);
  1021. +         nt = ot;
  1022. +         nt.c_cc[VMIN] = 1;    /* one character read is OK     */
  1023. +         nt.c_cc[VTIME] = 0;    /* Never time out.              */
  1024. +         ioctl(0, TCSETAW, &nt);
  1025. +         }
  1026. + #endif                            /* end kew */
  1027.           }
  1028.       else {
  1029.           *recv = *send;
  1030. + #ifdef SIGTTIN
  1031.           signal(SIGTTIN, SIG_IGN);
  1032.           signal(SIGTTOU, SIG_IGN);
  1033. + #endif
  1034.           }
  1035.   # endif
  1036.   
  1037. ***************
  1038. *** 730,736 ****
  1039.       curbp->b_display = dp;
  1040.       infof("Buffer connected.");
  1041.       num_pty++;
  1042. !     sel_bits |= BIT(dp->d_pipe_in);
  1043.       p_poll();
  1044.       return 0;
  1045.   }
  1046. --- 753,759 ----
  1047.       curbp->b_display = dp;
  1048.       infof("Buffer connected.");
  1049.       num_pty++;
  1050. !     FD_SET(dp->d_pipe_in, &sel_bits);            /* kew */
  1051.       p_poll();
  1052.       return 0;
  1053.   }
  1054. ***************
  1055. *** 741,747 ****
  1056.       DISPLAY *dp = bp->b_display;
  1057.       if (dp == NULL)
  1058.           return;
  1059. !     sel_bits &= ~BIT(dp->d_pipe_in);
  1060.       close(dp->d_pipe_in);
  1061.       close(dp->d_pipe_out);
  1062.       if (dp->d_pid) {
  1063. --- 764,770 ----
  1064.       DISPLAY *dp = bp->b_display;
  1065.       if (dp == NULL)
  1066.           return;
  1067. !     FD_CLR(dp->d_pipe_in, &sel_bits);            /* kew */
  1068.       close(dp->d_pipe_in);
  1069.       close(dp->d_pipe_out);
  1070.       if (dp->d_pid) {
  1071. ***************
  1072. *** 810,824 ****
  1073.   }
  1074.   check_if_died(bp)
  1075.   register BUFFER *bp;
  1076. ! {    extern int child_sig;
  1077. ! 
  1078. !     if (child_sig)
  1079.           proc_wait(-1);
  1080.       if (kill(bp->b_display->d_pid, 0) < 0) {
  1081.           p_cleanup(bp);
  1082.           return TRUE;
  1083. !         }
  1084.       return FALSE;
  1085.   }
  1086.   p_write(buf, len)
  1087.   char    *buf;
  1088. --- 833,862 ----
  1089.   }
  1090.   check_if_died(bp)
  1091.   register BUFFER *bp;
  1092. ! {
  1093. ! /* start kew */
  1094. !     extern int child_sig;
  1095. !     int fd = bp->b_display->d_pipe_in;
  1096. !     int i;
  1097. !     char bigbuf[256];
  1098. ! 
  1099. !     if (child_sig) {
  1100. !         do {
  1101. !             i = read(fd, bigbuf, 255);
  1102. !             if (i > 0) {
  1103. !                 bigbuf[i] = 0;
  1104. !                 p_update(bp, bigbuf);
  1105. !             }
  1106. !         } while (i > 0);
  1107.           proc_wait(-1);
  1108. +     }
  1109. +     bp->b_wstat = wait_status;
  1110.       if (kill(bp->b_display->d_pid, 0) < 0) {
  1111.           p_cleanup(bp);
  1112.           return TRUE;
  1113. !     }
  1114.       return FALSE;
  1115. + /* end kew */
  1116.   }
  1117.   p_write(buf, len)
  1118.   char    *buf;
  1119. diff -c -r +new-files ../cr.orig/s-xenix ./s-xenix
  1120. *** ../cr.orig/s-xenix    Wed Mar 27 23:10:58 1991
  1121. --- ./s-xenix    Thu Mar 28 08:11:20 1991
  1122. ***************
  1123. *** 8,11 ****
  1124.   # 286 CFLAGS).
  1125.   #
  1126.   SHLIB=
  1127. ! export SHLIB
  1128. --- 8,13 ----
  1129.   # 286 CFLAGS).
  1130.   #
  1131.   SHLIB=
  1132. ! OTHERLIBS="-ldir"
  1133. ! G="-O"
  1134. ! export SHLIB OTHERLIBS G
  1135. diff -c -r +new-files ../cr.orig/spawn.c ./spawn.c
  1136. *** ../cr.orig/spawn.c    Wed Mar 27 23:10:42 1991
  1137. --- ./spawn.c    Wed Mar 27 16:21:30 1991
  1138. ***************
  1139. *** 25,30 ****
  1140. --- 25,31 ----
  1141.       } PROC;
  1142.   Head_p    hd_procs;
  1143.   int    child_sig = FALSE;    /* Set to TRUE when SIGCLD goes off. */
  1144. + int    wait_status;                        /* kew */
  1145.   
  1146.   void
  1147.   proc_add(pid, macro)
  1148. ***************
  1149. *** 65,70 ****
  1150. --- 66,72 ----
  1151.       while (1) {
  1152.           while (1) {
  1153.               dead_proc = wait(&status);
  1154. +             wait_status = (status >> 8);        /* kew */
  1155.   # if    defined(SIGCLD)
  1156.                      signal(SIGCLD, child_handler);
  1157.   # endif
  1158. ***************
  1159. *** 110,116 ****
  1160.           if (shname == NULL)
  1161.               shname = ggetenv("shell");
  1162.           if (shname == NULL)
  1163. !             shname = "/bin/csh";     
  1164.           }
  1165.       return shname;
  1166.   }
  1167. --- 112,118 ----
  1168.           if (shname == NULL)
  1169.               shname = ggetenv("shell");
  1170.           if (shname == NULL)
  1171. !             shname = "/bin/sh";             /* kew */
  1172.           }
  1173.       return shname;
  1174.   }
  1175. diff -c -r +new-files ../cr.orig/splay/sptree.h ./splay/sptree.h
  1176. *** ../cr.orig/splay/sptree.h    Wed Mar 27 23:08:44 1991
  1177. --- ./splay/sptree.h    Wed Mar 27 22:27:38 1991
  1178. ***************
  1179. *** 20,26 ****
  1180.   
  1181.   typedef struct _spblk SPBLK;
  1182.   
  1183. ! typedef struct _spblk
  1184.   {
  1185.       SPBLK    * leftlink;
  1186.       SPBLK    * rightlink;
  1187. --- 20,26 ----
  1188.   
  1189.   typedef struct _spblk SPBLK;
  1190.   
  1191. ! /*typedef*/ struct _spblk
  1192.   {
  1193.       SPBLK    * leftlink;
  1194.       SPBLK    * rightlink;
  1195. diff -c -r +new-files ../cr.orig/src/crisp/GNUmakefile ./src/crisp/GNUmakefile
  1196. *** ../cr.orig/src/crisp/GNUmakefile
  1197. --- ./src/crisp/GNUmakefile    Wed Mar 27 21:02:06 1991
  1198. ***************
  1199. *** 0 ****
  1200. --- 1,110 ----
  1201. + #
  1202. + # GNU-Makefile for macros
  1203. + #
  1204. + 
  1205. + MACDIR    = /usr/local/crisp/macros
  1206. + H    = crisp.h tty/tty.h
  1207. + VANILLA    = Makefile
  1208. + 
  1209. + vpath    :tty:kbd
  1210. + 
  1211. + CM    = \
  1212. +     abbrev.cm \
  1213. +     ansi.cm \
  1214. +     ascii.cm \
  1215. +     autosave.cm \
  1216. +     box.cm \
  1217. +     brace.cm \
  1218. +     calc.cm \
  1219. +     cbox.cm \
  1220. +     column.cm \
  1221. +     compile.cm \
  1222. +     copyr.cm \
  1223. +     core.cm \
  1224. +     crisp.cm \
  1225. +     crisprc.cm \
  1226. +     dial.cm \
  1227. +     edt.cm \
  1228. +     features.cm \
  1229. +     g_macros.cm \
  1230. +     g_vi.cm \
  1231. +     hanoi.cm \
  1232. +     help.cm \
  1233. +     history.cm \
  1234. +     kbd/pc.cm \
  1235. +     kbd/sun3.cm \
  1236. +     kbd/xcrisp.cm \
  1237. +     kbd/xterm.cm \
  1238. +     kbd_help.cm \
  1239. +     mail.cm \
  1240. +     makeman.cm \
  1241. +     misc.cm \
  1242. +     modelines.cm \
  1243. +     options.cm \
  1244. +     ralign.cm \
  1245. +     rcs.cm \
  1246. +     region.cm \
  1247. +     regress.cm \
  1248. +     sccs.cm \
  1249. +     sdb.cm \
  1250. +     search.cm \
  1251. +     select.cm \
  1252. +     shell.cm \
  1253. +     startup.cm \
  1254. +     stest.cm \
  1255. +     tags.cm \
  1256. +     telnet.cm \
  1257. +     text.cm \
  1258. +     tty.cm \
  1259. +     tty/aixterm.cm \
  1260. +     tty/at386.cm \
  1261. +     tty/att.cm \
  1262. +     tty/dec.cm \
  1263. +     tty/ibm5081.cm \
  1264. +     tty/isc.cm \
  1265. +     tty/sco.cm \
  1266. +     tty/sun.cm \
  1267. +     tty/sun4.cm \
  1268. +     tty/telnet.cm \
  1269. +     tty/tty.cm \
  1270. +     tty/tvi965.cm \
  1271. +     tty/vt100.cm \
  1272. +     tty/vt220.cm \
  1273. +     tty/wyse50.cm \
  1274. +     tty/wyse60.cm \
  1275. +     tty/xcrisp.cm \
  1276. +     tty/xenix.cm \
  1277. +     tty/xterm.cm \
  1278. +     unix.cm \
  1279. +     welcome.cm \
  1280. +     window.cm \
  1281. +     wp.cm \
  1282. +     zoom.cm
  1283. + 
  1284. + all:    $(addprefix $(MACDIR)/, $(CM))
  1285. + 
  1286. + 
  1287. + $(addprefix $(MACDIR)/, $(CM)): $(MACDIR)/%.cm : %.m $(H)
  1288. +     cm -o $@ $<
  1289. + 
  1290. + $(VANILLA)::
  1291. +     @rm -f $(VANILLA)
  1292. +     @echo "#\n# Plain Vanilla $(VANILLA) for Crisp Macros\n#" >> $(VANILLA)
  1293. +     @echo "# This file generated by GNU Make with GNUmakefile" >> $(VANILLA)
  1294. +     @echo "# If you don't use GNU make, you should think about changing." >> $(VANILLA)
  1295. +     @echo "# Date produced: `date`" >> $(VANILLA)
  1296. +     @echo "#\n" >> $(VANILLA)
  1297. +     @echo "SHELL = /bin/sh" >> $(VANILLA)
  1298. +     @echo "MACDIR = $(MACDIR)" >> $(VANILLA)
  1299. +     @echo "H = $(H)" >> $(VANILLA)
  1300. +     @echo "CM = \c" >> $(VANILLA)
  1301. +     @echo "$(CM)" \
  1302. +         | awk '{for (i = 1; i < NF; i++) printf("\t$$(MACDIR)/%s\\\n", $$i);\
  1303. +             printf("\t$$(MACDIR)/%s\n", $$NF)}' >> $(VANILLA)
  1304. +     @echo "\n\nall: $$(CM)" >> $(VANILLA)
  1305. +     @echo "\n" >> $(VANILLA)
  1306. +     @echo "$(basename $(CM))" \
  1307. +         | awk '{for (i = 1; i <= NF; i++) { \
  1308. +             printf("$$(MACDIR)/%s.cm: $$(H) %s.m\n", $$i, $$i); \
  1309. +             printf("\tcm -o $$(MACDIR)/%s.cm %s.m\n", $$i, $$i);}}' >> $(VANILLA)
  1310. +     @echo "vanilla $(VANILLA) completed"
  1311. diff -c -r +new-files ../cr.orig/src/crisp/Makefile ./src/crisp/Makefile
  1312. *** ../cr.orig/src/crisp/Makefile    Wed Mar 27 23:09:05 1991
  1313. --- ./src/crisp/Makefile    Wed Mar 27 21:02:14 1991
  1314. ***************
  1315. *** 1,65 ****
  1316. ! MACDIR    = /usr/local/crisp/macros
  1317. ! H    = crisp.h tty/tty.h
  1318. ! SRC    = Makefile *.h *.m kbd/* tty/*
  1319. ! CM    =    $(MACDIR)/abbrev.cm \
  1320. !         $(MACDIR)/ansi.cm \
  1321. !         $(MACDIR)/ascii.cm \
  1322. !         $(MACDIR)/autosave.cm \
  1323. !         $(MACDIR)/box.cm \
  1324. !         $(MACDIR)/brace.cm \
  1325. !         $(MACDIR)/calc.cm \
  1326. !         $(MACDIR)/compile.cm \
  1327. !         $(MACDIR)/copyr.cm \
  1328. !         $(MACDIR)/core.cm \
  1329. !         $(MACDIR)/crisp.ó┐û∙ÇIQ@q└ â└!SP⌠à±Ç@ â└S â└b â└H`ò@`ò@4σ░äæLªφ%╩Θth┼9H@ïdΩmÉPTî$ß└╠±ö\à0
  1330. mÉ╫X≡hU8UMR-ÉKσ ≤àhàHÉeXMÜA"@IöMQ5Æ0PS┼8@<╘L⌡R T╬4ö├5!LAD╨I0▒NRU8UUSÄCÇ